home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / emacssrc.arc / ANSI.C next >
C/C++ Source or Header  |  1987-02-16  |  5KB  |  255 lines
  1. /*
  2.  * The routines in this file provide support for ANSI style terminals
  3.  * over a serial line. The serial I/O services are provided by routines in
  4.  * "termio.c". It compiles into nothing if not an ANSI device.
  5.  */
  6.  
  7. #define    termdef    1            /* don't define "term" external */
  8.  
  9. #include        <stdio.h>
  10. #include    "estruct.h"
  11. #include        "edef.h"
  12.  
  13. #if     ANSI
  14.  
  15. #if    AMIGA
  16. #define NROW    23                      /* Screen size.                 */
  17. #define NCOL    77                      /* Edit if you want to.         */
  18. #else
  19. #define NROW    25                      /* Screen size.                 */
  20. #define NCOL    80                      /* Edit if you want to.         */
  21. #endif
  22. #define    NPAUSE    100            /* # times thru update to pause */
  23. #define    MARGIN    8            /* size of minimim margin and    */
  24. #define    SCRSIZ    64            /* scroll size for extended lines */
  25. #define BEL     0x07                    /* BEL character.               */
  26. #define ESC     0x1B                    /* ESC character.               */
  27.  
  28. extern  int     ttopen();               /* Forward references.          */
  29. extern  int     ttgetc();
  30. extern  int     ttputc();
  31. extern  int     ttflush();
  32. extern  int     ttclose();
  33. extern  int     ansimove();
  34. extern  int     ansieeol();
  35. extern  int     ansieeop();
  36. extern  int     ansibeep();
  37. extern  int     ansiopen();
  38. extern    int    ansirev();
  39. extern    int    ansiclose();
  40. extern    int    ansikopen();
  41. extern    int    ansikclose();
  42. extern    int    ansicres();
  43.  
  44. #if    COLOR
  45. extern    int    ansifcol();
  46. extern    int    ansibcol();
  47.  
  48. int    cfcolor = -1;        /* current forground color */
  49. int    cbcolor = -1;        /* current background color */
  50. #endif
  51.  
  52. /*
  53.  * Standard terminal interface dispatch table. Most of the fields point into
  54.  * "termio" code.
  55.  */
  56. TERM    term    = {
  57.     NROW-1,
  58.         NROW-1,
  59.         NCOL,
  60.         NCOL,
  61.     MARGIN,
  62.     SCRSIZ,
  63.     NPAUSE,
  64.         ansiopen,
  65.         ansiclose,
  66.     ansikopen,
  67.     ansikclose,
  68.         ttgetc,
  69.         ttputc,
  70.         ttflush,
  71.         ansimove,
  72.         ansieeol,
  73.         ansieeop,
  74.         ansibeep,
  75.     ansirev,
  76.     ansicres
  77. #if    COLOR
  78.     , ansifcol,
  79.     ansibcol
  80. #endif
  81. };
  82.  
  83. #if    COLOR
  84. ansifcol(color)        /* set the current output color */
  85.  
  86. int color;    /* color to set */
  87.  
  88. {
  89.     if (color == cfcolor)
  90.         return;
  91.     ttputc(ESC);
  92.     ttputc('[');
  93.     ansiparm(color+30);
  94.     ttputc('m');
  95.     cfcolor = color;
  96. }
  97.  
  98. ansibcol(color)        /* set the current background color */
  99.  
  100. int color;    /* color to set */
  101.  
  102. {
  103.     if (color == cbcolor)
  104.         return;
  105.     ttputc(ESC);
  106.     ttputc('[');
  107.     ansiparm(color+40);
  108.     ttputc('m');
  109.         cbcolor = color;
  110. }
  111. #endif
  112.  
  113. ansimove(row, col)
  114. {
  115.         ttputc(ESC);
  116.         ttputc('[');
  117.         ansiparm(row+1);
  118.         ttputc(';');
  119.         ansiparm(col+1);
  120.         ttputc('H');
  121. }
  122.  
  123. ansieeol()
  124. {
  125.         ttputc(ESC);
  126.         ttputc('[');
  127.         ttputc('K');
  128. }
  129.  
  130. ansieeop()
  131. {
  132. #if    COLOR
  133.     ansifcol(gfcolor);
  134.     ansibcol(gbcolor);
  135. #endif
  136.         ttputc(ESC);
  137.         ttputc('[');
  138.         ttputc('J');
  139. }
  140.  
  141. ansirev(state)        /* change reverse video state */
  142.  
  143. int state;    /* TRUE = reverse, FALSE = normal */
  144.  
  145. {
  146. #if    COLOR
  147.     int ftmp, btmp;        /* temporaries for colors */
  148. #endif
  149.  
  150.     ttputc(ESC);
  151.     ttputc('[');
  152.     ttputc(state ? '7': '0');
  153.     ttputc('m');
  154. #if    COLOR
  155.     if (state == FALSE) {
  156.         ftmp = cfcolor;
  157.         btmp = cbcolor;
  158.         cfcolor = -1;
  159.         cbcolor = -1;
  160.         ansifcol(ftmp);
  161.         ansibcol(btmp);
  162.     }
  163. #endif
  164. }
  165.  
  166. ansicres()    /* change screen resolution */
  167.  
  168. {
  169.     return(TRUE);
  170. }
  171.  
  172. spal()        /* change pallette settings */
  173.  
  174. {
  175.     /* none for now */
  176. }
  177.  
  178. ansibeep()
  179. {
  180.         ttputc(BEL);
  181.         ttflush();
  182. }
  183.  
  184. ansiparm(n)
  185. register int    n;
  186. {
  187.         register int q,r;
  188.  
  189.         q = n/10;
  190.         if (q != 0) {
  191.         r = q/10;
  192.         if (r != 0) {
  193.             ttputc((r%10)+'0');
  194.         }
  195.         ttputc((q%10) + '0');
  196.         }
  197.         ttputc((n%10) + '0');
  198. }
  199.  
  200. ansiopen()
  201. {
  202. #if     V7 | USG | BSD
  203.         register char *cp;
  204.         char *getenv();
  205.  
  206.         if ((cp = getenv("TERM")) == NULL) {
  207.                 puts("Shell variable TERM not defined!");
  208.                 exit(1);
  209.         }
  210.         if (strcmp(cp, "vt100") != 0) {
  211.                 puts("Terminal type not 'vt100'!");
  212.                 exit(1);
  213.         }
  214. #endif
  215.     strcpy(sres, "NORMAL");
  216.     revexist = TRUE;
  217.         ttopen();
  218. }
  219.  
  220. ansiclose()
  221.  
  222. {
  223. #if    COLOR
  224.     ansifcol(7);
  225.     ansibcol(0);
  226. #endif
  227.     ttclose();
  228. }
  229.  
  230. ansikopen()    /* open the keyboard (a noop here) */
  231.  
  232. {
  233. }
  234.  
  235. ansikclose()    /* close the keyboard (a noop here) */
  236.  
  237. {
  238. }
  239.  
  240. #if    FLABEL
  241. fnclabel(f, n)        /* label a function key */
  242.  
  243. int f,n;    /* default flag, numeric argument [unused] */
  244.  
  245. {
  246.     /* on machines with no function keys...don't bother */
  247.     return(TRUE);
  248. }
  249. #endif
  250. #else
  251. ansihello()
  252. {
  253. }
  254. #endif
  255.